<%
  # global settings
  Slew_upp  = 3
  Slew_donn = 2

%>

<% s = Scales::Hexany1357.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(1) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}

<% s = Scales::Tenney_8.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(2) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}

<% s = Scales::Harrison_8.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(3) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}

<% s = Scales::Bohlen_8.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(4) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}


<% s = Scales::Fibo_9.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(5) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}

<% s = Scales::Gann_Ghost.mul(127) %>
; <%= s.canonical %>
{
  <%= Shnth::situ(6) %>

  ; 60Hz-ish
  (srate (short 36 79))

  (arab

    (pan
      (add
        (horna <%= s[Shnth::But_A].n %> <%= s[Shnth::But_A].d %> (slewa (majora) <%= Slew_upp %> <%= Slew_donn %>))
        (hornc <%= s[Shnth::But_C].n %> <%= s[Shnth::But_C].d %> (slewc (majorc) <%= Slew_upp %> <%= Slew_donn %>))
        (horne <%= s[Shnth::But_d].n %> <%= s[Shnth::But_d].d %> (slewe (minord) <%= Slew_upp %> <%= Slew_donn %>))
        (horng <%= s[Shnth::But_b].n %> <%= s[Shnth::But_b].d %> (slewg (minorb) <%= Slew_upp %> <%= Slew_donn %>))
      )
      80
    )

    (pan
      (add
        (hornb <%= s[Shnth::But_B].n %> <%= s[Shnth::But_B].d %> (slewb (majorb) <%= Slew_upp %> <%= Slew_donn %>))
        (hornd <%= s[Shnth::But_D].n %> <%= s[Shnth::But_D].d %> (slewd (majord) <%= Slew_upp %> <%= Slew_donn %>))
        (hornf <%= s[Shnth::But_c].n %> <%= s[Shnth::But_c].d %> (slewf (minorc) <%= Slew_upp %> <%= Slew_donn %>))
        (hornh <%= s[Shnth::But_a].n %> <%= s[Shnth::But_a].d %> (slewh (minora) <%= Slew_upp %> <%= Slew_donn %>))
      )
      144
    )

  )
}
